home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh9x
/
sh96a.d64
/
id-maker 64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
2KB
|
35 lines
1 POKE788,52:IFPEEK(57088)<>32ORPEEK(57089)<>215ORPEEK(57090)<>189THEN3
2 SYS64738
3 X=PEEK(186):IFX<8ORX>13THENX=8
4 GOSUB12:GOSUB16:GOSUB11:GOSUB12:GOSUB14
5 N=N+1:IFN=2THENPRINT""TAB(250)"[158]ZWEITE"
6 IFN=3THENCLOSE2:CLOSE1:GOTO29
7 GOSUB11:OPEN1,X,15,"I":OPEN2,X,2,"#":PRINT#1,"U1:"2;0;20;5:GOSUB25
8 PRINT#1,"B-P:"2;10 :IFN<0THENN=0
9 GET#2,A$:A=ASC(A$+CHR$(0)):IFA=2THENCLOSE2:CLOSE1:N=N-1:GOSUB12:GOTO27
10 PRINT#1,"N:[195]OPY,LJ":GOSUB25:CLOSE2:CLOSE1:GOTO5
11 WAIT203,64,64:RETURN
12 POKE53280,0:POKE53281,0:PRINT"[147]"TAB(16)CHR$(14)"[201][196]-[205][193][203][197][210]"TAB(98)"VON"
13 PRINTTAB(9)"[200]ANS-[202]UERGEN [218]IETHMANN":RETURN
14 PRINT"[194]ITTE DIE ERSTE VON ZWEI [196]ISKETTEN IN DAS [204]AUFWERK "X;"[146]LEGEN"
15 PRINT"[145]"TAB(62)"UND EINE [212]ASTE DRUECKEN":RETURN
16 PRINTTAB(40)"[205]IT [200]ILFE DIESES [208]ROGRAMMS BRINGEN [211]IE DIE [196]ISKETTEN-[201][196] [204][202]"
17 PRINT"[145]"TAB(60)"AUF DIE"TAB(80)"[211]TARTDISKETTEN."
18 PRINT"[211]IE KOENNEN ABER DIE [196]ISK EBENSO VON [200]AND FORMATIEREN. [193]CHTEN [211]IE"
19 PRINT"NUR DARAUF, DASS DIE [196]ISKETTEN-[201][196] IMMER [204][202] LAUTET."
20 PRINT"[215]EITERHIN BENOETIGEN [211]IE ZWEI [196]ISKETTEN,DA DER [199][197][207][211][203][207][206][214][197][210][212][197][210] [214]2.0"
21 PRINT"EIN GANZES [211]YSTEM"TAB(40)"([211]YSTEM/[211]ICHERUNGSSYSTEM) ERSTELLT."
22 PRINT"[218]USAETZLICH BENOETIGEN [211]IE EIN"TAB(40)"[203]OPIERPROGRAMM, WELCHES DIE "
23 PRINT"[196]ISKETTENTRACKS NICHT FORMATIERT. "TAB(87)"[194][201][212][212][197] [197][201][206][197] [212][193][211][212][197] [196][210][213][197][195][203][197]!"
24 RETURN
25 INPUT#1,EN,EM$,ET,ES:IFEN=0OREN=21THENRETURN
26 GOSUB12:PRINT"[196]ISK [197][210][210][207][210]!";EN;EM$;ET;ES:CLOSE2:CLOSE1:N=N-1:GOTO28
27 PRINT"[214][207][210][211][201][195][200][212]![146]"TAB(80)"[196]IE [211]YSTEMDISKETTE DARF NICHT FORMATIERTWERDEN"
28 PRINTTAB(80)"[194][201][212][212][197] [197][201][206][197] [212][193][211][212][197] [196][210][213][197][195][203][197][206]!":GOSUB11:GOSUB12:GOSUB14:GOTO5
29 GOSUB12:PRINT"[198]ORMATIEREN BEENDET!"
30 PRINT"[194]ITTE KOPIEREN [211]IE NUN DIE"TAB(40)"[199][197][207][211]-[211]YSTEMDISKETTE"
31 PRINT"[145][145]"TAB(60)"MIT EINEM"TAB(40)"[203]OPIERPROGRAMM, WELCHES DIE "
32 PRINT"[196]ISKETTENTRACKS NICHT NEU FORMATIERT,"TAB(40)"AUF BEIDEN [196]ISKETTEN."
33 PRINT"[215]ENN [211]IE MIT DEM [203]OPIERVORGANG FERTIG SIND, LADEN UND STARTEN [211]IE"
34 PRINT"[145]"TAB(68)"DEN"TAB(80)"[199][197][207][211][203][207][206][214][197][210][212][197][210] [214]2.0.":NEW